home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtrep51.zip
/
REPSRC.ZIP
/
REPDEM02.DFM
/
REPDEM02.txt
Wrap
Text File
|
1996-06-24
|
8KB
|
259 lines
object dem02form: Tdem02form
Left = 92
Top = 198
Width = 607
Height = 450
ActiveControl = Panel1
Caption = 'dem02form'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 599
Height = 209
Align = alTop
TabOrder = 0
object Previews: TBitBtn
Left = 496
Top = 2
Width = 97
Height = 30
Caption = '&SubTotals'
TabOrder = 0
OnClick = PreviewsClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object Exit: TBitBtn
Left = 525
Top = 74
Width = 68
Height = 30
Caption = '&Exit'
ModalResult = 2
TabOrder = 1
OnClick = ExitClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
end
object Preview: TBitBtn
Left = 505
Top = 38
Width = 88
Height = 30
Caption = 'Pre&View'
TabOrder = 2
OnClick = PreviewClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object Memo1: TMemo
Left = 8
Top = 8
Width = 477
Height = 193
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'This is a demo of the TPrintGridReport Component'
'The lines of necessary coding can be found in RepDem02.PAS.'
'The TPrintGridReport component can make use of either a'
'TTable or a TQuery component depending on which is '
'connected to the grid. '
''
'Subtotal and Total printing of fields can be done'
''
'Only visible fields will be printed')
ParentFont = False
TabOrder = 3
end
end
object Panel2: TPanel
Left = 0
Top = 209
Width = 599
Height = 214
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 6
Top = 6
Width = 587
Height = 202
Align = alClient
BorderStyle = bsNone
DataSource = DataSource1
Font.Color = clTeal
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsItalic]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Color = clBlack
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
end
end
object Query1: TQuery
Active = True
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select'
' customer."CustNo",'
' customer."Company",'
' customer."Addr1",'
' customer."Addr2",'
' customer."City",'
' customer."State",'
' customer."Zip",'
' customer."Country",'
' customer."Phone",'
' customer."FAX",'
' customer."TaxRate",'
' customer."Contact",'
' customer."LastInvoiceDate"'
'From customer'
'order by'
'Country')
Left = 480
Top = 105
object Query1CustNo: TFloatField
DisplayWidth = 6
FieldName = 'CustNo'
end
object Query1Company: TStringField
DisplayWidth = 14
FieldName = 'Company'
Size = 30
end
object Query1Country: TStringField
DisplayWidth = 15
FieldName = 'Country'
Visible = False
end
object Query1Phone: TStringField
DisplayWidth = 13
FieldName = 'Phone'
Size = 15
end
object Query1Contact: TStringField
DisplayWidth = 20
FieldName = 'Contact'
end
object Query1LastInvoiceDate: TDateTimeField
DisplayWidth = 20
FieldName = 'LastInvoiceDate'
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 507
Top = 105
end
object PrintGridReport1: TPrintGridReport
Brush.Color = clSilver
ViewButtonVisible = False
OutputTo = poViewer
Orientation = Default
ViewBkColor = 11234567
Units = poInches
ViewHeading = 'Reportit Viewer'
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
HeaderFont.Color = clBlack
HeaderFont.Height = -17
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
ZoomPercentage = 100.000000000000000000
HeaderTop = 0.500000000000000000
HeaderStringLeft = 'Demo 2'
HeaderStringCenter = 'Page Header'
HeaderStringRight = 'Reportit'
HeaderEnabled = True
HeaderOutlined = True
HeaderFilled = True
FooterTop = 24.630000000000000000
FooterString = 'Page Footer'
FooterEnabled = True
FooterOutlined = True
FooterFilled = True
DisableControls = True
BorderLeft = 0.250000000000000000
BorderRight = 0.250000000000000000
DateTimeStampEnabled = True
PageNumberEnabled = True
GridHeadingRow = 1.500000000000000000
GridHeadingCol = 0.250000000000000000
GridHeadingEnabled = True
GridHeadingOutlined = True
GridHeadingFilled = True
GridLines = True
LineSpacing = 1.500000000000000000
Grid = DBGrid1
GridMinWidth = True
GridCentered = True
GridPrintTotal = True
PrintSubTotals = False
FrameStyleLeft = frSingleThin
FrameStyleTop = frSingleThin
FrameStyleRight = frSingleThin
FrameStyleBottom = frSingleThin
ReportStyle = rsOwn
Left = 508
Top = 148
end
end